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ABOUT THIS MANUAL 


This manual explains the logic of the utility program which creates tape files 
that control the Offline 3800 Printer. 


The purpose of this manual is to help the IBM programming service 
representative (PSR) to isolate a programming failure as quickly as possible. 
Although this manual is written primarily for the PSR, system programmers 
and others may also be interested in some of the information presented here. 


Organization of The Manual 


How to use The Manual 


Structured Documentation 


Related Publications 


e Front matter—preface, table of contents, list of figures 

e Introduction—a conceptual overview 

« Method of Operation—a functional overview 

¢- Program Organization—a list of procedures and subprocedures 
« Data Areas—examples of some major data areas 

« Diagnostic aids—RETAIN keywords explained and defined 


e Index 


First study the table of contents as an outline of the manual and the software 
logic; then thumb through the manual for an impression of how the 
information is presented and how you may use it to help solve your problem. 


Each pair of facing pages contains all the information on the topic you will be 
reading about; thus, you will not have to break your thinking to refer to 
figures and tables located elsewhere in the manual. Usually a figure will be on 
the right page and the related text will be on the facing page. You should try 
to grasp the concept of the topic by first studying just the figure and then 
reading the text. 


Some DOS/VS module names are different from the OS/VS module names 
in complying with internal programming standards. Those names which begin 
with “CIPO” for OS/VS must begin with “CIPD” for DOS/VS. In this 
manual, the OS/VS spelling is used to represent the module for either 
operating system. 


e Offline IBM 3800 Utility, SH20-9138 


This manual provides information about planning, installing, and using the 
IBM 3800 Printing Subsystem. 


¢ IBM Offline 3800 Utility Program Listing LJB60009 (LJIB60010 
DOS/VS) 


Each module ts on a separate microfiche frame. The prolog of each module 
describes the required data areas. 
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INTRODUCTION 
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This section provides a self-contained overview, and refers mostly to the 
Method of Operation section, which describes the functions performed in 
greater detail. You should read this Introduction to gain a high-level 
understanding of how the program is used. 


The IBM Offline 3800 Printer Utility is introduced in terms of INPUT, 
PROCESSING, and OUTPUT; OUTPUT is discussed more extensively. 












INTRO 
Method of 
Operation 
Program 
Organization 
Directory 

(Not required) 
Diagnostic Aids 
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Conceptual Overview 


Input 


Processing 


Output 
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The purpose of the Offline IBM 3800 Printer is to generate a control tape to 
define the print characteristics of an output data set for the 3800 printer. The 
output data set can be a separate data set on the control tape or some other 
tape. The utility is also used to maintain the control modules from which the 
control tape is generated. The control modules do not maintain executable 
code. 


Figure 1 shows that the utility can be used with either OS/VS or DOS/VS. 
Utility control statements control the processing. The general format of a 
utility control statement is: 


Label OPERATION OPERAND,OPERAND 


The “OPERATION” (above) can be INCLUDE, FCB, COPYMOD, 
TABLE, GRAPHIC, NAME, OPTION, DEFINE, or QDEFINE. The 
“OPERAND(s)”’ can be one or more keywords which correspond to the 
operation and complete its meaning. The old control modules can be modified 
or included with the output without modification. The control tape does not 
contain control mcdules. 


Figure 1 shcws that the computing space is initialized by the main procedure; 
the procedure CIPOSCAN is called to read and process the control 
statements. When the operation is determined, the appropriate subprocedure 
is then called to generate the required 3800 control module or to perform 
other operations specified by the control statements. The operations of 
maintaining the control modules and generating a control tape are 
independent of each other. 


Figure 1 shows the four types of modules maintained by the utility: Forms 
Control Buffer, Character Arrangement Table, Copy Modification, and 
Graphic Modification. The control tape contains records with information 
extracted from the control modules. Updated modules are automatically 
listed; however, listings can be obtained in a separate operation. 
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INPUT 
Job Control for OS (Example) 


//ARGOT JOB accounting info 
//STEP EXEC PGM=CIPOPRT 
//SYSPRINT DD SYSOUT=A 
//SYSUT! DD DSN=INLIB.DISP=OLD 
//SYSLIB DD DSN=OUTLIB,DISP=. . . 
//anydd DD UNIT=TAPE,LABEL=. .. 
//SYSIN DD * 

DEFINE or other 

Utility control statements 


Job Control for DOS (Example) 


//JOB UTILITY 
//OPTION DECK.CATAL 
//ASSGN SYSLST.X’cuu’ 
//ASSGN SYSIPT.X‘cuu’ 
/ [ASSGN SYSxxx.X'cuu’ 
OLD SYSPCH OUTPUT 
/ /EXEC CIPDRPT, SIZE=AUTO 
DEFINE or other 
Utility control statements 
/ /EXEC LNKEDT 


OS 


SYSUTI 


Input for 
QDEFINE 
printout only 


Old Control Modules 


Figure |. A Conceptual Overview 





PROCESSING 


1. Initialize work environment. 


Read utility control statements 
to determine operation. 


Perform requested operations: 


¢ DEFINE=generate tape 
© QDEFINE=list tape 
e Other operations 


Produce object text for new 
or modified modules. 


Generate control tape using 
control modules. 





OUTPUT 


Cc Dos > 
SYS 





EXEC LNKED 






SYSLIB CIL 


or 


New Control Modules 


e FCB e COPYMOD 
e TABLE ¢ GRAPHIC 














Records for 
Offline 3800 
control 










CONTROL 
STATEMI.NTS 


FORMATTED 
LISTING 


DIAGNOSTICS 





Control! Module/Records 
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General Structure of Output 


Header Information 3800 Printer Control Data 
a 2 3 4 5 6 fi Variable Length (8K Maximum) 
Module name (4 bytes) Contains information for one of the following: 
Reserved (2 bytes) - - Forms control buffer 
Length of data (2 bytes) -- Copy modification 


~ -— Character arrangement table 
- - Graphic character modification 





Forms Control Buffer Module 
The module sho-yn below specifies control information for the vertical line 
spacing and any one of 12 channel codes per line. 
Bit Pattern 
Reserved _ 
(00) Channel Code 
Binary Hex Channel 
0000 0 - (null) 
Lines per inch 0001 l ] 
00=6 lpi 0010 2 2 
O1=8 Ipi 0011 3 3 
11=12 Ipi 0100 4 4 
0101 5 5 
0110 6 6 
O111 7 7 
1000 8 8 
1001 9 9 
1010 A 10 
1011 B 1] 
1100 C 12 
Copy Modification Module 


The module shown below specifies data that is to be printed on every page for 
the specified number of copies of the output file. 


Segment |] | Segment 2 
lee Le Tale. Pofe[e [tex 


Modifying text 
Number of bytes of text 
Starting print position 
Number of lines to be modified 
Starting line number 
Number of copies to be modified 


Starting copy number 
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Character Arrangement Table Module 


The module shown below indicates how the input data is translated into 
addresses which are used to select the characters from the appropriate 
Writable Character Generation Module (WCGM). 





These 6 bits reference one of 64 
addresses (0-63) in the WCGM. 


00=WCGMO0 
01=WCGM I 
10=WCGM2 
11=WCGM3 


Graphic Character Modification Module 


The module shown below indicates the scan patterns of user-designed 
characters and/or characters from IBM-supplied modules. 


Segment | Segment 2 
1 ea 


72 bytes of coding that represent the raster sean 
pattern of one graphic character and tts system dati. 






Translate Table Code - The 8-bit data code used as an indes into the 
translate table. Usually the code is the EBCDIC assignment for the character. 


Control Tape Record 


The control tape records illustrated below are read into the 3800 buffers by 
the tape-to-print feature. Detailed information about the control character is 
provided in Offline IBM 3800 Utility. The maximum block size is 8192 


bytes. 
Block Record Control Record Control Related 
Length Length Character Length Character | Data 
) (2) (2) (2) (1) (2) (2) (2) Vary 


Bytes (2 






Related 
Data 





Vary 
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Examples of Output Listings 


The following is an example of an OUTPUT listing of three segments of a 
copy modification module. 


MODIHANK 
INITIAL NUMBER OF INITIAL NUMBER OF INITIAL NUMBER OF 
SEGMENT COPY NO. COPIES LINE NO. LINES PRINT POS. CHARACTERS 
1 l 4 58 1 35 18 
2 2 ] 1 1 50 23 
3 2 l 34 3 75 10 


The following is an example of an OUTPUT listing of two segments of a 
graphic character modification module. 


SEGMENT 003 SEGMENT 004 
ASSIGNMENT 6A PITCH 15 ASSIGNMENT 9A PITCH 10 
12345678901234%5678 123456789012345678 
1 : 1. « 
2 z,. .% 
3 é B. % 
G F G. 
5 5. 4 
6 6 HEH HHH HEH : 
7 7 JE HEH HE EE HEE e 
8 8 . HHH HHH ‘ 
9 9 HHH HHH 
10 : 10 HHH HH HH : 
ll J 11 % HH HHI HH 3 
l2 ‘ | ar HH HHH HIE 
13 % HE 3% : 13. HH % 3H rs 
14 He IE FE IE HE HE HE IE HE HEH 5 14. % HH HH MH 
15 HH 3% HH HH . 15. % HH HMM 
16 16. HHH % HH A 
17 17 HHH MMH KMIM é 
18 18 HHH —— HHH HM HH : 
19 19 . HHH HHH HH : 
20 20 
21 21 ‘ 
22 , 22 
23 j 23 
24 ; 2% : 
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METHOD OF OPERATION 


This section discusses function; it provides you with module names and data 
area names which will be used in understanding the Program Listing and 
other sections of this manual. 


Function is discussed in terms of input statements which designate functions; 
programming procedures invoked to perform the functions; and the two data 
areas which link the input statements to the procedures. 
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Method of 
Operation 











Program 
Organization 





Directory 
(Not required) 


Data Areas 


Diagnostic Aids 


Program Listings 
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Functional Overview 


Function is determined by utility control statements (Figure 2). The utility 
comprises various major functional procedures (Figure 3). 


The Operation Table (OPTAB) and the Keyword Table (KEYTAB) shown in 
Figure 4 link the operations requested on the utility control statements with 
the subprocedures invoked to compete the operation. 


The main procedure, CIPOPRT, calls subprocedures according to function; 
for example, if the FCB control statement is encountered, the subprocedure 
CIPOFCHB is called to perform the specified function; or if the TABLE 
control statement is encountered, the subprocedure named CIPOTABL is 
called. The subprocedures are listed in Chapter 3. 


The utility is table-driven by OPTAB and KEYTAB (described in Chapter 4). 
The following is a view of how these tables function, assuming the input 
utility control statement: FORM FCB SIZE=70, LPI=80: 


« Scan OPTAB for an entry with RTNAME=FCB 

e Set ACTIVOP (work area) =OPNUM (OPTAB), entries from top of table 
e Get address of operation build routine from BLDPTR (OPTAB) 

¢ Set output module prefix to ‘“FCB3”’; set defaults 

e Scan KEYTAB for an entry with KEYWD=SIZE 

« Set ACTIVKEY (work area) = (entries from first KEYTAB entry) 

« Scan OPFLAGS (OPTAB); check that SIZE is valid with FCB operation 
e Set KWDUSE (work area) =X (SIZE already used in this operation) 

e Get address of SIZE processing routine from PRMPTR (KEYTAB) 

e Process SIZE parameter 

e Scan KEYTAB for next keyword (KEYWD=LPI) 

« Repeat the steps above for processing keywords 

e Build module FCB3 and perform output 
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Statement Functton invoked 

FCB Generate a Forms Control Buffer module and list 

TABLE Generate a Character Arrangement Table and List 

COPYMOD Generate a Copy Modification Module and list 

GRAPHIC Generate a Graphic Modification Module and list 

INCLUDE Include a module with the subsequent statement 

NAME End an operation 

OPTION Supply optional information for selected operation. 

DEFINE Create a sequential data set as output9 

QDEFINE List contents of data set created by DEFINE 

Figure 2. Utility Control Statements and Function 

Procedure Function Performed 

CIPOPRT Main procedure, initialize storage, invoke other procedures required 
to process the operations specified by the utility control statements 

CIPOSCAN Read and scan utility control statements and determine the 
operation using table look-up with OPTAB (operation table) and 
KEYTAB (keyword table) 

CIPORITE Produce object module for output 

CIPOMSGS Accept message number in field MSGN and edit data in MSGEDIT 
list in work area. Select message; insert variable data if needed. 
Write message to output device. 

CIPOFCB Construct and list FCB module 

CIPOCOPY Construct and list COPY module 

CIPOGRAF Construct and list GRAPHIC module 

CIPOTABL Construct and list TABLE module 

CIPODEFN Construct CONTROL RECORDS (tape) 


Note: For DOS/VS names, use prefix CIPD in place of CIPO 


Figure 3. 


Programming Procedures and Function 











OPTAB 


Routine Operation Operation Valid 
KEYTAB 


Key Routine Flags/ Parameter Routine 
Length Address Controls Definitions Name 










Figure 4. One Entry of Tables OPTAB and KEYTAB 
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Procedures and Subprocedures 
The following lists the procedures and subprocedures for the IBM 3800 
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Printer Utility. 
CIPOPRT Subprocedures 


INCLUDE 

INVOP 

NAME 

FIND 

LOADLIB 
PRINTQ 
PRTCARD 
EODAD 
CONVERT 
DELCHK 
READLIB 
OPTION 
QDEFINE 

SYNAD (OS only) 
TSYNAD (OS only) 
BKSZCK (OS only) 
ABEND (OS only) 
BKSZFIX (QOS only) 
TAPEND 
MOVELONG 


CIPOCOPY Subprocedures 


COPYMOD 
COPYPRT 
COPCHK 


CIPOTABL Subprocedures 


TABLE 
TABLPRT 
TABCHK 


CIPOFCB Subprocedures 


FCB 
FCBPRT 


CIPOGRAF Subprocedures 


GRAPHIC 
GCMPRT 
GRFCHK 


Subfunction Performed 


Process INCLUDE statement 
Process invalid operation 

Process NAME statement 

Locate member in library 

Load text into storage 

Output the print queue 

Print control statements 

Process end-of-file on SYSIPT 
Binary-to-decimal conversion 
Verifies delete request 

Load text records into buffer 
Process OPTION statement 
Process QDEFINE statement 
1/O error processor 

‘Tape error processor 

Ensure correct SYSPRINT block size 
DCB abend exit 

Ensure correct block size (library) 
Tape end of file routine 

Move long data strings 


Subfunctions Performed 


Create COPYMOD modules 
Print COPYMOD modules 
Check COPYMOD modules 


Subfunctions Performed 


Create TABLE module 
Print TABLE module 
Check TABLE module 


Subfunctions Performed 


Create FCB module 
Print FCB module 


Subfunctions Performed 


Creates GRAPHIC modules 
Print GRAPHIC modules 
Check GRAPHIC modules 
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CIPODEFN Subprocedures 


DEFINE 
DEFPRT 
LOADTAB 
CPYMODLD 
BLDTREC 


CIPOSCAN Subprocedures 


A keyword name 
GETCARDN 
SCAN 
FINDPARM 
INVKEY 
SCANTEXT 
CONVERTR 
CONVERTX 
CONVERT 


CIPORITE Subprocedures 


PUTEXT (DOS only) 
NUMBER (DOS only) 
WRITE (OS only) 
WRBLOCK (OS only) 
WRTEXT (OS only) 


Subfunctions Performed 


Create 3800 Offline control file 

Print 3800 (01) and (02) commands 
Process Character Arrangement Tables 
Process Copy Modification modules 
Write records to control file 


Subfunctions Performed 


Process respective keyword 

Read control statement 

Scan control statement fields 
Process keyword parameters 
Process invalid keywords 

Process text part of input 
Determine conversion 

Convert hexadecimal specifications 
Decimal to binary conversion 


Subfunctions Performed 


Write object text to CNTLTAPE/SYSLNK 
Generate sequence number for object text 
Write modules to library 

Prepare block of data for library 

Prepare text part of block for library 
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PROGRAM ORGANIZATION 


This section shows program organization in terms of a structural overview of 
the programming procedures and high-level flowcharts. You should study this 
section to gain an understanding of the organization and structure of the 
program listing, and the logic flow of some of the major procedures. 











Program Listings 





Method of 


Operation 
Program 


Name 








Program 
Organization 









Directory 
(Not required) 


Data Areas 


Diagnostic Aids 
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CIPOPRT 


Controlling 


procedure: 


Determines 
operation 





Creates and CIPOSCAN 


pants copy CIPOMSG 
modification 


modules 


CIPOTABL 


Creates and CIPOSCAN 
prints catalog CIPOMSG 





modules 


CIPOFCB 













Creates and 
prints forms 

control buffer 
modules. 


CIPOSCAN 
CIPOMSG 


CIPOGRAF 


Creates and 
prints graphic 


CIPOSCAN 


CIPOMSG 
modification 


modules 


CIPODEFN 


Creates control 
file for offline 
printer 


CIPOSCAN 

Control CIPOMSG 
statement scan 

processor 

CIPORITE 

Outputs created CIPOMSG 
modules for 

library update 


CIPOMSGS 


Messages and 
message 





CIPOSCAN 
CIPOMSG 








writer 





Figure 5. Structural Overview of Procedures 
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CIPOPRT 
A 


‘TART 


GETVIS FOR 
WORKAREA AND 
BUFFER 








READ A CARD, 
SCAN FOR 
OPERATION 


1 E 
ACTIVOP « NO ACTIVE 
NEXTOP OPERATION? 
ES 
F : 
EXTOP IEXTOP 
DETERMI NE = ACTIVE OPS _NO = NAME NO IMD} 
OPERATION AND MULTI OP OPERATION? 
es es 
FCB ----> 
TAB ----> 
COPY ----> 
GRAF - ---> 
INCL----> 
NAME ----> 
OPT ----> G 
DEF ----> NAME 
QOEF----> DETERMINE 
NV ----> OPERATION COMPLETE 


: OPERATION 





BE OOPERAT LOW 





Figure 6. CIPOPRT Procedure 
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£ AreecaN 


1 
START 
















B B2 

SCAN IN SCAN FOR 
PROGRESS, OP KEYWORD 

FOUND 


READ CONTROL 


STATEMENT PROCESS NAME 


SET SCAN_IN 
PROGRESS 


E1 


SCAN FOR 
OPERATION 





PROCESS KEYWORD 
ERRORS 


SCAN_IN 
PROGRESS 





H2 
RETURN 


Figure 7. CIPOSCAN Procedure 








KEYWORD 
A 


START 


B 


DETERMINE 
KEYWORD 


LPI ----> 


CGM ----> 
DEL ----> 
ASGN----> 
CH. ----> 
BLSZ--~--> 


DIST----> 
DUMP ----> 
ERRO----> 


INVK----> 







H4 
SAMPKWD 


PROCESS KEYWORD! 
PARAMETERS 


NEED 
CONT INUATION 
CARD 


GET ANOTHER 
CARD 


KS 
RETURN 
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NAME 










LIBRARY 
WRITE 
INHIBITED 


A 
START 





B2 
CITPOSCAN 






B 
CIPORITE 






SCAN FOR NAME OUTPUT 








READ ONLY OP 
ES 


FCB ----> 
TAB ----> 
COPY----> 
GRAF --=--> 





D2 


BRING MODULE 
INTO STORAGE 







E3 
PRTMOD 






DETERMINE 
CHECK ROUTINE 






TAB <---> 
COPY ----> 
GRAF- ~--> 





F 
RETURN 


2 
BLDMOD 


EXECUTE CHECK 
ROUTINE 














CREATE LIBRARY 


c 
DETERMINE 
PRINT ROUTINE 








EXECUTE PRINT 
ROUTINE 


D 


INHIBIT LIBRARY 
UPDATE 





CONTINUATION 
CARD? 


PURGE 
CONTINUATION 
CARDS 


RETURN 


Figure 8. NAME Procedure and INVOP Procedure 
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4 9 
CTLRPOSCAN 


DETERMINE 
KEYWORDS 









+—————_| SET DEFAULTS 


Let KEYWORD? 


E2 
CHECK FOR FCB 
ERRORS 





ARRAY 
EXHAUSTED 
















SCAN ARRAY 


SCAN ARRAY 
ENTRY = 6 LPI 8 LP 


ENTRY = 











SET 6 LINE PER 
INCH 
INDICATIONS 





SET 8 ane PER 
INDICATIONS 









Hd 


ADL LINES TO 
FCB LINE 





COUNTER 


Figure 9. CIPOFCB Procedure 





CIPOFCB 
A 


START 







FCBPRT 


CHECK FCB 


YES 


PRINT REQUEST MARGINS 











FCB 





SCAN_IN 
PROGRESS 





8) 


EDIT CHANNEL 


CODE TO PRINT 
LINE 








E 
INCREMENT LINE 
COUNTER 









SET 12 LINE PER 
INDICATIONS 


CHECK FCB 
FORMAT 









HS: 





PRINT THE FCB 






RETURN 
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CLPOCOPY 


Al 
( START 







NO 
BUILD REQUEST 


YES 





COPYMOD COPYPRT 
Cc c4 
OPERATION YES NO SET PAGE HEADER 
IN PROGRESS CHECK REQUEST : PRINT REQUEST IN PRINT QUEUE 
ES Oo 






COPCHK 
D3 


SET COPY AND 
LINE INFO IN 
TIMING TABLE 


DS 







SET OPERATION 


SET PAGE OF 
IN PROGRESS 


COPY INFO 





E 


E3 
CALCULATE 
DELSEG COMPRESSED AND 
KEYWORD STE CHAR 
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PRINT ANY COPY 
FORMAT ERRORS 








LOAD THE MODULE ALL 
INTO STORAGE PRINTING 
COMPLETE 












=G2 
CIPOSCAN 


DETERMINE 
KEYWORDS 


G1 
COPY SEGMENTS 
{ TO BUFFER 








LAST 
SEGMENT 
PROCESSED 
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CHECK FOR 
POSSIBLE rrr 
OVERRUN 






LOAD MODULE 


INTO WORKAREA COMPRESS TEXT 
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SET NEW COPY 
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SCAN_IN 
PROGRESS 


Figure 10. CIPOCOPY Procedure 
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CIPOGRAF 
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START 







BUILD REQUEST 


GRAPHIC 
Cc 





OPERATION 
IN PROGRESS 
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INCLUDED MODULE 








SCAN IN 
PROGRESS 
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CTPOSCAN 


DETE. REMAP NE 
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MODULE 
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Figure 11. CIPOGRAF Procedure 
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CIPOCEFN 


Ad 
START ) 


B 
BUILD REQUEST 
YES 


é 
CTPOSCAN 







NO) 


PROCESS THE 
CONTROL 
STATEMENT 





D2 


OPFN OUTPUT 
CONTROL PILE 










Eo 


WRITE RESET 
TRO Tao CONTROL, 
F : 
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WRITE ‘ 
“TEAR PR ) 
CONTROL no 
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R 





COMMANDS 


H2 


WRITE LIST 
TREORMATION To 
COINTROL FILE 
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WRITE 
INPUT COMMAND 
AND DATA TO 
CONTROL FILE 






DEP INE 








Ke 
DEFPRT 


PRINT DEFINE 
INPUT © OMMAND 





Figure 12. 
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WRITE DEFINE 
OUTPUT 
COMMAND AND 
DATA TO 
CONTROL FILE 
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PORF PRT 


PRINT [REFINE 
POUTPUT COMMAND 


E3 
PROA ESS 
CHARACTER 
ARRANtEMENT 
TABLES 








TABLES, 

Ic MODS; 
‘OPYMOD. TO 
CONTROL FILE 
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WRITE Fe B TO) 
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WRITE DEFINE 
QUTPUT 
COMMAND TO 
CONTROL FILE 








K 3 
RETURN 


CIPODEFN Procedure 
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DEFPRT 





NO 
PRINT REQUEST 






PRINT HEADING 
ON SYSTEM 
OUTPUT DEVICE 












D4 


PRINT COMMAND 
ON SYSTEM 
OUTPUT DEVICE 











E4 


PRINT LEGEND 
ON SYSTEM 
QUTPUT DEVICE 





P4 
RETURN 
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CTPOTABI. 
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TABLE 













NPRINTABL. 
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PROGRESS 
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INCLUDE 
STATMENT 
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(FF) 
NTABLE 






T ALL 
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T 












E 


INDICATE _CGMID 
REF ERROR 
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BRING MODULE 
INTO BUFFFP 
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STANDARD GOTHIC 
CHARACTER SET 
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a KEYWORD YES 
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Figure 13 (Part 1 of 2). CIPOTABL Pruvedure 
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Be 
INITIALIZE 
MATRIX 
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SET CGMID 






SET ASTERISK IN 
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Figure 13 (Part 2 of 2). CIPOTABL Procedure 
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CLPORITE WRBLDL WRBLOCK WRTEXT 
Ae AS A, 


START START START START 








B3 


BLDL, SEARCH 
FOR REQUESTED 
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Ba 6 


WRITE A_ TEXT 
RECORD 











REPLASE YES 
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ONLY BLOCK 
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RECORD 


IRST TEXT 
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DIRECTORY 
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ENTRY CIPIOSI BLOCK RETURN 















Fa F F 
WRBL ICK 
NO WRITE LAST 
WRITE THE I/O ERRGR CONTROL RECORD 








MODULE TO THE 
; BRARY 


aa 






4 
S UPDATE abs 
STun Ik °E 
C' SEC TORY WRITE LAST TEXT 
RECORD 






| SELECT MESSAGE 
CIPIO4I 













He 
STUOWMSG 
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Figure 14. CIPORITE Procedure 
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CAP DRITE SG OBJ BLD OBJEND PHASEBLD PUTEXT 


Ad A A A 
START ) ( START ) START START START 
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SET _‘END' IN 


B B 
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B! 
PHASEBLD 


BUILD PHASF. 
STATEMENT 
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D2 


BUILD TEXT CARD 
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CORE 
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IN BUFFER 
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H1 
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STATEMENT 
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K1 
RETURN 


Figure 15. CIPDRITE (DOS/VS) Procedures 
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RETURN 
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DATA AREAS 


®@ 
Data Area Descriptions 
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The Data Areas section provides data area names and formats useful in 
storage dump interpretation. [t provides the names of object modules using 
each data area and, hence, guides you to the Program Organization section. 





Program 
Organization ! ‘ 


t ’ 
Directory t | 

} 

, f 





Method of 
Operation { 
: 


(Not required) 
Data Area 


Name 
© Data Areas 


Diagnostic Aids 





Storage Dump 





ee ee 


| 


Figures 16, 17, £8, and 19 show some of the major data areas for the IBM 
3800 Printer Utility. The data area descriptions are shown in the prolog of 
each module. 


Data Area 


4) 
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tad 
ta) 


| 


Register 8 


Work Area 


&(8) 
DWORK 


0(0) 
DPACK 


16(10) 
FWORK 















22(16) 
STATUS3 


23(17) 
STATUS4 


20(14) 
STATUS] 






21(15) 
STATUS2 





25(19) 
KWDUSE 


24(18) 
STATUSS 












31(1F) 
FNCTION 








32(20) 33(21) 34(22) 35(23) 
ACTIVOP NEXTOP ACTIVKEY OPTABLN 





36(24) 
OPTABAD 






OPTAB 


aLDPin 
OPFUNETI 
OPFLAGS 


Figure 16. Data Area Overview 











Build 
Routine 








DE TT PE TED 


ee ten pe 


DECLARE 


1 KEYADDR( LENGTH( KEYTAB)/LENGTH(KELEM)) DEF(KEYTAB)>, 


2 KLEN FIXED(8), NUMBER OF BYTES IN NAME. 
2 PRMPTR PTR( 24), POINTER TO ROUTINE. 
2 KFINDX PTR(8), KEYWORD ALLOWED INDEX. 
2 KFLAG BIT(8), KEYWORD TEST FLAG. 
2 KSINDX PTR(8), KEYWORD SET INDEX. 
2 KSETS BIT(8); KEYWORD SET BIT. 
2 KFLAGS BIT(8), KEYWORD ATTRIBUTE FLAGS. 
3 KMULT BIT(1), MULTIPLE PARAMETERS ALLOWED 
3 KPARN1 BIT(1), SINGLE PARENTHESIS ALLOWED. 
3 KPARN2 BIT(1L), DOUBLE PARENTHESIS ALLOWED. 
3 VARI BIT(1), VARIABLE LENGTH KEYWORD. 
@ KCNT FIXED(8), MAXIMUM PARAMETERS ALLOWED. 
2 KPARM BIT(48), PARAMETER DEFINITIONS. 
2 KEYWD CHAR(8), NAME OF ROUTINE. 
1 PARMATTR(3) REDEFINE KPARM AS AN ARRAY. 
BASED( ADDR( KPARM( ACTIVKEY))}, 
3 KPFLAGS BIT(8), PARAMETER ATTRIBUTE FLAGS. 
4 KDEC BIT(1), DECIMAL DATA. 
4 KHEX BIT(1), HEXADECIMAL DATA. 
G@ KCHAR BIT(1), ALPHAMERIC DATA. 
G4 KSPEC BIT(1), SPECIAL DATA. 
3 KPLEN FIXED( 8); MAXIMUM LENGTH OF PARAMETER 
Figure 17. Keyword Table (KEYTAB) 
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The following is a definition of the operation table as a 24-byte array of elements. 





DECLARE 


1 TABLDEF(*) BASED(OPTABAD), 


2 
2 


2 
2 


™ MP 


Figure 18. Operation Table (OPTAB) 


BLOPTR 
RTNANE 
3 RTNI 
NO8 
OPFUNCTN 
3 CHKPTR 
3 PRTPTR 
OPIUM 
OPFLAGS 
3 OPFLAS1 
MLTFLAG 
LPIFLAG 
CHFLAG 
SIZEF LAG 
CCPYFLAG 
LINEFLAG 
POSF LAG 
TEXTFLAG 
PFLAG2 
NAMEF LAG 
ASGNFLAG 
DELFLAG 
REFFLAG 
GCMFLAG 
GCMLFLG 
LOCF LAG 
CGMIDFLG 
PFLAG3 
NOF LAG 
FRMTFLAG 
REPFLAG 
OUTFLAG 
BRSTFLAG 
CHARFLAG 
COPGFLAG 
DCHKFLAG 
PFLAGS 
FCBFLAG 
FLSHFLAG 
FORMFLAG 
CH9OF LAG 
CH1I2FLAG 
INITFLAG 
MDFYFLAG 
XMITFLAG 


OFF FFF FR SF 


DOP SP OP oP SP OP Oe Sk oe Se a Sr SO @ OO 


3 OPFLAGS 
SPCEFLAG 
SEPFLAG 
TRCFLAG 
FSEQFLAG 
CONCF LAG 
DENSF LAG 
DCFLAG 
EROPF LAG 

PFLAG6 
ERPCFLAG 
LABLFLAG 
LRECFLAG 
BUF OF LAG 
PRTYFLAG 
RCFMFLAG 
XLATFLAG 
TRCKF LAG 


Ww 
f£eFPeFPPeoeaoarrreeees 


PTR( 31), 
CHAR(8)> 
CHAR( 1), 


FIXED(8), 


BIT(8), 
BIT(1), 
BIT(1), 


FIXED(E), 


BIT(64), 
BIT(®8), 
eEIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(3), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(l), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(8), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(8), 
BIT(1), 
BIT(1), 
BITC) )+ 
BIT(1), 
BIT(1), 
BIT( 1), 
BIT(1), 
BIT(1), 


BIT(8), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1); 
BIT(1), 
BIT(1), 
BIT(1); 
BIT(8), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 
BIT(1), 


OPERATION TABLE STRUCTURE. 
POINTER TO OPERATION ROUTIN 


OPERATION NAME. 


OPERATION NAME INITIAL. 
NUMBER OF CKARS IN NAME. 


FUNCTIONS ALLOWED. 


CHECK 


OPERATION HUMBER. 


FUNCTION ALLOWED. 
PRINT FUNCTION ALLOWED. 


KEYWORDS VALID FOR OPERATN 


MULTIPLE CONTROL STATEMENTS 


A\.LOW 


ALLOW 


ALLOW 


ALLOW 


ALLOW 


ALLOW 


LPI= 


CH1 THRU CH12= 


SIZE= 
COPIES= 
LINES= 
POS= 
TEXT= 


NAME 
ASSIGN= 
DELSEG= 
PEF= 
GCM= 
GCMLIST= 
LOC= 
CGMIO= 


NO KEYWORDS 


FORMAT= 
REPLACE= 
OUTOD= 
BURST= 
CHARS= 
COPYG= 
DCHK= 


FCB= 
FLASH= 
FORMS= 
IFCHAN9= 


IFCHANL2= 


INIT= 
MODIFY= 


TRANSMIT= 


SPACE= 
SEP= 
TRC= 
FILESEQ= 
CONCHAR= 
DENSITY= 


DATACONV= 


ERROPT= 


ERRPROC= 
LABEL= 
LRECL= 
BUFOFF= 
PARITY= 
RECFM= 


TRANSLAT= 


TRACK= 





Data Areas 35 


Work Area — CIPDBLKS 


36 Offline IBM 3800 Utility Logic 


EE een 


Pay cearenes BASED(BUFAD), WORK AREA ANDO BUFFER SPACE 
3 DOPACK CHAR( 8 )BOY(OWORD), CONVERT TO DECIMAL AREA. 
4 DWORK CHAR(8)BDY(OWORD), DOUBLE WORD WORK AREA. 
&@ FWORK FIXED(31), FULL WORD WORK AREA. 
3 STATUS1 BIT(8), CURRENT STATUS OF UTILITY. 
4 EOFFLG BIT(1), EttD OF FILE PENDING. 
4 CARDIN BIT(1), CARD IN BUFFER INOICATION. 
4 CONTINUE BIT(1), CONTINUATION CARD INDICATOR 
4 DSEGSW BIT(l), DELSEG REQUEST MADE. 
4 PCLASGN BIT(1); PCIL IS ASSIGNED. 
4 OPTDECK BIT(1), DECK OPTION SELECTED. 
4 OPTCATL BIT(1), CATAL GPTION SELECTED. 
3 STATUS2 BIT(8), CURRENT STATUS OF OPERATION 
& REPUSE BIT(1), REPLACE OPTION INDICATOR. 
5 NCQFMT BIT(1), QBDEFINE KO FORMAT REQUEST. 
& INHIBIT BIT(2), INHIBIT WRITING/READING. 
5 INHIBITW BIT(1), INHIBIT WRITING PDS. 
5 INHIBITR BIT(1), INHISIT READING FDS. 
4 INHIBITP BIT(1), INHIBIT PRINTING. 
4 FMTERR BIT(1), INDICATE FORMAT ERROR. 
4 FMTERRI BIT(1), INDICATE FORMAT ERROR. 
G PRTYERR BIT(1), PARITY ERROR INDICATOR. 
5 SETRAS BIT(1), ONE RASTER SCAN SET. 
6 TEXTSW BIT(1), TEXT SCAN IN PROGRESS. 
4G READMOD BIT(1), READ AND PRINT ONLY. 
3 STATUS3 BIT(&), CURRENT STATUS OF SCAN. 
4 INVDLM BIT(1), INVALID OELIMITER. 
@ FOUND BIT(1), OPERATION OR KEYWORD FOUND. 
4 INVKWD BIT(1), INVALID KEYWORD INDICATOR. 
4 EXCLKWD BIT(1), EXCLUSIVE KEYKORD INDICATOR 
& INVPARN BIT(1), INVALID PARAMETER. 
4 INVCHAR BIT(1), INVALID CHARACTER. 
4 UNBAL BIT(1); UNBALANCED PARENTHESIS. 
& KWDCOMP BIT(1), KEYWORD SCAN COMPLETE. 
3 STATUSS BIT(8), CURRENT STATUS (HISC). 
4 KEYIN BIT(1), KEYWORD READY. 
& SCANINP BIT(1), SCAN IN PROGRESS. 
4 INCLSH BIT(1), INDICATE INCLUDE KEYWORD. 
4 HEXERR BIT(1), HEX ERROR DURING CONVERT. 
G FLOSW BIT(1), WITHIN PARM GROUP SWITCH. 
4 PARMGRP BIT(1), PARAMETER GROUP SWITCH. 
4 OPINPRG BIT(1); OPERATION IN PROGRESS. 
& LASTQ BIT(1), LAST QUOTE OR CARD. 
3 STATUSS BIT(8), DEFINE FUNCTION STATUS 
4 ISHIBITC BIT(1), INHIBIT CONTROL FILE OUTPUT 
4 INZFORCE BIT(1), FORCE INIT PRINTER COMMAND. 
4 INCHDERR BIT(1), ERR IN INPUT CMD DEFINITION 
& TEOF BIT(1), CONTROL FILE END OF FILE. 
3 KKDUSE BIT(48), KEYWORD BIT FLAGS. 
4 KWOUSED(6 )BIT(8), KEYWORDS USED IN OPERATION. 
3 FNCTION BIT(8), OPERATIONAL FUNCTION. 
4 BUILD BIT(1), BUILD FUNCTION. 
4 PRINT BIT(1), PRINT FUNCTION. 
4 CHECK BIT(1l), CHECK FUNCTION. 
3 ACTIVOP FIXED(8), ACTIVE OPERATION NUMBER. 
3 NEXTOP FIXEO(8), NEXT OPERATION NUMBER. 
3 ACTIVKEY FIXEO(8), ACTIVE KEYWORD. 
3 OPTABLN FIXED(8), LENGTH OF OPERATION TABLE. 
3 OPTABAD PTR(31), ADDR OF OPERATION TABLE. 


Figure 19. Work Area 


GOTTEN STORAGE 
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CESD Records 


The OS and OS/VS utility writes five CESD records before each text record 
on the library to maintain compatibility with the linkage editor and other 


utility programs. 


Pps Psfey a _[eprape py 


Module length 


Count of ESD data 





Spare -- binary zeros 


Identification — 00100000 


Identification Record 


IDR data — see below 


eee Subtype indicator 
....0001 Data supplied by HMASPZAP 


....0010 Utility data 
1...0100 Utility data and last IDR record 


Byte count of IDR data including this byte 


Identification - 10000000 
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Segment number 


Address—binary zeros 
Type — (SD) X‘00’ 


Symbol — 8-character external name 


ESDID of first ESD item 
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HMASPZAP Data 


Up to 18 repetitions 
of bytes 6-13 


Data specified during HMASPZAP Processing 


Date of HMASPZAP processing (packed decimal) YYDDD 
ESDID of module processed by HMASPZAP 


Flags and count 
BitQ Reserved 
1 Chain bit - next record is also available for HMASPZAP data 
2-7 Number of HMASPZAP entries used on this record (range 0 to 19) 


Utility Data 


Date of last utility 
processing of this module 
(packed decimal) YYDDD 





Version and modification level of 
utility that produced this 
module (packed decimal) VVMM 


Program name of utility that 
produced this module 
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Utility Data (Supplied for Linkage Editor Compatibility) 


Date of last utility 
processing of this module 
(packed decimal) YYDDD 


Version and modification level of 
utility that produced this module 
(packed decimal) VVMM 


Program name of utility that 
produced this module 


Indicator hex 00 


ESDID Last IDR hex 8001 


CESD (Last Record) 


Co 


Text length 
Entry number (1) 


Channel Command Word (CCW) 
that could be used to read the 
text record that follows 


Count (zero) 


Count in bytes of deta that follows 
the CCW field 


Spare (ZERO) 


Identification (EQM) 00001101 
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C DIAGNOSTIC AIDS 


This section guides you in generating RETAIN/EWS keywords for the 
Offline 3800 Printer Utility. 






Program Listings 











Method of 
Operation 








Program 
Organization 










Directory 
(Not required) 









OData Areas 


Message 






Diagnostic Aids 
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Retain Keyword Concept 


The RETAIN keywords provided in this chapter will help the PSR to use the 
RETAIN and EWS systems in a standard way for this program. The PSR 
must: 


1. Identify the failure by a string of RETAIN keywords 
2. Search RETAIN (or EWS) for the fix 

3. Apply the fix if found 

4. Add keywords to the APAR if fix not found 


Example of Keyword Entry 


Five Types of Keywords 
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The following string of keywords would be entered as a retain search 
argument to identify a failure where the type of defect was a WAIT which 
occurred in procedure CIPOSCAN, and subprocedure GETCARDN,; the 
resource involved was SYSIN: 


AR340 TPTF2 WAIT CIPOSCAN GETCARDN SYSIN 


There are five types of keywords in general: 


1. Product identification keywords: 


XXXXXX.. Component I D 
ARvrm Applicable version, release, modification 
TPTFx Tested PTF maintenance level 


2. Type-of-defect keywords: 


LOOP Symptom of failure was a loop status 
WAIT Symptom of failure was a wait status 
INCORROUT User output defective 

PERFM Performance defect 

DOC ' Documentation defective 

others 


3. Procedure-that-failed keyword 
Name of procedure that failed 


4. Subprocedure-that-failed keyword 
Name of subprocedure that failed 


5. Resource-involved keyword 
Input/Output devices, or internal tables changed by user 
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C 


CIPOPRT Keywords 
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The five general types of keywords are defined here specifically for this 
utility. 


Product-identification-keywords (required): 


Component ID 5748-UT200 
ARvrm Ask customer for version, release, modification 
TPTFx Ask customer for PTF maintenance level 


Type-of-defect keyword (required): 


LOOP Use if symptom was a loop 

WAIT Use if symptom was a wait 

INCORROUT Use for defective user output 

PERFM Use for unsatisfactory performance 

DOC Use for documentation errors 

MSG xxxXxxXxx Replace xxxxxxxx by error message number 
ABENDxx Replace xx by utility abend number 
ABENDxxx Keplace xxx by system abend number 


Procedure-that-failed keyword (required): 


The EBCDIC name of each procedure is coded at the top of the procedure so 
that the beginning of the procedure is identifiabie in a dump. If the point of 
failure follows the EBCDIC name of a procedure, use that name as the 
keyword. For DOS/VS procedure names, replace ‘““CIPO” with “CIPD”’. 


CIPOSCAN (scan-in-process bit is not zero) 
CIPOPRT 
CIPOMSG 
CIPOTABL 
CIPORITE 
CIPOFCB 
CIPOTABLE 
CYIPOCOPY 
CIPOGRAF 
CIPODEFN 
CIPORITE 


Subprocedure-that-failed Keywords (not required): 


Get the number in the active operation field, AC TIVOP, of the work area. 
Use the subroutine name (below) corresponding to this number. The work 
area address is in register 8. The field ACTIVOP is at offset 32 (20) from 
that address. The field NEXTOP its at offset 33 (21). 


INCLUDE use if ACTITVOP=00 and NEXTOP= 07 
NAME use if ACTIVOP= xx and NEXTOP= 01 
FCB use ff ACTIVOP= 04 
TABLE use if ACTIVOP= 06 
GRAPHIC use if ACTIVOP= 05 
DEFINE use if ACTTVOP= 03 
QDEFINE use if ACTIVOP= 09 
COPYMOD use if ACTIVOP= 02 
OPTION use if ACTIVOP= 60 and NEXTOP= Us 
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Resource-involved Keywords (not required): 


Use only if resource was involved and was altered by user. 


Register 1 points to the DTF or DCB of a failing device; the EBCDIC name 
of the device can be found in the DTF for DOS/VS or the TIOT for 
OS/VS—offset indicated in DCB. 


SYSLST 
SYSIPT 
SYSPCH 
SYSLNK 
SYSxxx 
SYSIN 
SYSPRINT 
SYSSNAP 
SYSUT1 
SYSLIB 


Snap and Dump Control Statements 


You can use the SNAP and DUMP control statements to help diagnose a 
failure. These control statements are explained throughout the Offline IBM 
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3800 Utility manual. 


(DOS only) 
(DOS only) 
(DOS only) 
(DOS only) 
(DOS only) 
(OS only) 
(OS only) 
(OS only) 
(OS only) 
(OS only) 


SNAP=(m,n) will cause a dump of the work area for DOS/VS and a dump of 
the user computing space (no system space) for OS/VS. 


DUMP=(m,n) will cause an ABEND dump for either system. 
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